Option Explicit
Sub B_Sample011()
    Dim myRng  As Range
    Dim myBrds As Borders
    Dim myBrd  As Border
    Dim myStr  As String
    Set myRng = Range("A1")		'Nxs
    With myRng
        Set myBrds = .Borders
        Set myBrd = myBrds(xlEdgeBottom)
        Select Case myBrd.LineStyle
            Case xlContinuous
                myStr = "u"
            Case xlDash
                myStr = "su"
            Case xlDashDot
                myStr = "Isu"
            Case xlDashDotDot
                myStr = "Isu"
            Case xlDot
                myStr = "u"
            Case xlLineStyleNone
                myStr = "sb"
            Case Else
                myStr = ""
        End Select
        MsgBox "ؽuA" & myStr
    End With
    Set myBrd = Nothing			'
    Set myBrds = Nothing
    Set myRng = Nothing
End Sub
